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ABSTRACT 

The  ROLM  Ada  compiler,  version  4.42,  was  tested  in  May  1983  with  version  1.1 
(March  4,  1983)  of  the  ACVC  validation  tests.  Version  1.1  of  the  test  suite 

contained  1595  tests,  of  which  1292  were  applicable  to  this  compiler.  Of  the 
applicable  tests,  56  were  withdrawn  due  to  errors  in  the  tests.  Seven  tests 
detected  five  nonconformances  in  the  compiler.  The  remaining  123^  applicable 
correct  tests  were  passed. 
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SECTION  1 


Introduction 


1 . 1 f  Purpose  of  the  Validation  Summary  Report 

This  report  describes  the  results  of  the  validation  effort  for  the 
following  Ada  translator: 


Host  Machine: 


ROLM  MSE/800,  Data  General  MV/4000,  MV/6000, 

MV/8000,  and  MV/ 10000'. 


Operating  System:  AOS/VS-Ada  2.03' 

Host  Disk  System:  2  96  megabyte  drives S 


Target  Machine: 


ROLM  MSE/800,  Data  General  MV/4000,  MV/6000, 

MV/8000,  and  MV/10000' 


Operating  System:  AOS/VS-Ada  2.03) 

Language  Version:  ANSI/MIL-STD-1815A  Ada 

Translator  Version:  4.42',  *  /i 

Validator  Version:  1.1  (March  4,  1983). 

Testing  of  this  translator  was  conducted  by  SofTech,  Inc,  under  the 
supervision  of  the  Ada  Validation  Office^CAVOir-air  the" 'direction  of  the  Ada 
Joint  Program  Office.  TestiMwga-conducted  from  May  9,  1983  through  May  12, 
1983  at  the  ROLM  Co£poretIon7San  Jose,  CA,  in  accordance  with  AVO  policies 
and  procedures. ^  - 


^the  purpose  of  this  report  is  to  document  the  results  of  the  testing 
performed  on  the  translator,  and  in  particular,  to:, 


.  identify  any  language  constructs* supported  by  the  translator  that 
do  not  conform  to  the  Ada  standard. 

j 

.  identify  any  unsupported  language  constructs  required  by  the  Ada 
standard.  . 

^  -''tv 

."'describe  implementation-dependent  behavior  allowed  by  the  standard. 


1 .2  Use  of  the  Validation  Summary  Report 


The  Ada  Validation  Office  may  make  full  and  free  public  disclosure  of 
this  report  in  accordance  with  the  "Freedom  of  Information  Act" 
(5  U.S.C.  #552).  The  results  of  the  validation  are  only  for  the  purpose  of 
satisfying  United  States  Government  requirements,  and  apply  only  to  the 
computers,  operating  systems,  and  compiler  version  identified  in  this  report. 
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1.2  Use  of  the  Validation  Summary  Report 


The  Ada  Compiler  Validation  Capability  is  used  to  determine  insofar  as  is 
practical,  the  degree  to  which  the  subject  compiler  conforms  to  the  Ada 
standard.  Thus,  this  report  is  necessarily  discretionary  and  judgmental.  The 
United  States  Government  does  not  represent  or  warrant  that  the  statements,  or 
any  one  of  them,  set  forth  in  this  report  are  accurate  or  complete,  nor  that 
the  subject  compiler  has  no  other  nonconformances  to  the  Ada  standard.  This 
report  is  not  meant  to  be  used  for  the  purpose  of  publicizing  the  findings 
summarized  therein. 

Questions  regarding  this  report  or  the  validation  tests  should  be  sent  to 
the  Ada  Validation  Office  at: 

Ada  Joint  Program  Office 

Room  3D  139  (400  Army  Navy  Drive) 

Pentagon 

Washington,  D.C.  20301 


1 . 3  References 

Reference  Manual  for  the  Ada  Programming  Language,  ANSI/MIL-STD-1815A,  January 
1983. 

Ada  Validation  Organization:  Policies  and  Procedures,  Mitre  Corporation,  June 
1982,  PB  83-110601. 

Ada  Compiler  Validation  Implementors*  Guide,  SofTech,  Inc.,  October  1980. 

The  Ada  Compiler  Validation  Capability,  Computer.  Vol.  14,  No.  6,  June  1981. 
Using  the  ACVC  Tests,  SofTech,  Inc.,  November  1981. 

Ada  Compiler  Validation  Plans  and  Procedures,  SofTech,  Inc.,  November  1981. 


1.4  Definitions  of  Terms 

Class  A  tests  are  passed  if  no  errors  are  detected  at  compile  time.  Although 
these  tests  are  constructed  to  be  executable,  no  checks  can  be 
performed  at  run-time  to  see  if  the  test  objective  has  been  met;  this 
distinguishes  Class  A  from  Class  C  tests.  For  example,  a  Class  A  test 
might  check  that  keywords  of  other  languages  (other  than  those  already 
reserved  in  Ada)  are  not  treated  as  reserved  words  by  an  Ada 
implementation. 

Class  B  tests  are  illegal  programs.  They  are  passed  if  all  the  errors  they 
contain  are  detected  at  compile-time  (or  link-time)  and  no  legal 
statements  are  considered  illegal  by  the  compiler. 

Class  L  tests  consist  of  illegal  programs  whose  errors  cannot  be  detected 
until  link  time.  They  are  passed  if  errors  are  detected  prior  to 
beginning  execution  of  the  main  program. 
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Class  C  tests  consist  of  executable  self-checking  programs.  They  are  passed 
if  they  complete  execution  and  do  not  report  failure. 

Class  D  tests  are  capacity  tests.  Since  there  are  no  firm  criteria  for  the 
number  of  identifiers  permitted  in  a  compilation,  number  of  units  in  a 
library,  etc.,  a  compiler  may  refuse  to  compile  a  class  D  test. 
However,  if  such  a  test  is  successfully  compiled,  it  should  execute 
without  reporting  a  failure. 

Class  E  teats  provide  information  about  an  implementation's  interpretation  of 
the  Standard.  Each  test  has  its  own  pass/ fail  criterion.  There  were 
no  class  E  tests  in  Version  1.1  of  the  test  suite. 


CUSTOMER: 

HOST: 

ACVC: 

RM: 

IG: 

A  VO: 

TARGET: 


The  agency  requesting  the  validation  (ROLM  Corporation) . 

The  computer  on  which  the  compiler  executes  (e.g.,  the  ROLM 
MSE/800). 

Acronym  for  the  Ada  Compiler  Validation  Capability. 

The  Ada  Language  Reference  Manual. 

ACVC  Implementors*  Guide. 

The  Ada  Validation  Office.  In  the  context  of  this  report, 
the  AVO  is  responsible  for  conducting  compiler  validations. 

The  computer  for  which  a  compiler  generates  object  code 
(e.g.,  the  ROLM  MSE/800). 


VALIDATION:  The  process  of  validating  a  compiler.  The  term  is  used 

interchangeably  with  test  or  compiler  test. 

VALIDATION  TESTS:  The  generic  form  used  to  refer  to  a  set  of  test  programs 
which  evaluate  how  closely  a  compiler  conforms  to  its 
language  specification.  In  this  report,  the  term  will  be 
used  (unqualified)  to  mean  the  ACVC  tests. 
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SECTION  2 
Test  Analysis 

A  summary  of  tests  processed,  by  class,  is  given  below,  where: 

Pr  s  processed. 

NA  s  found  to  be  inapplicable  for  this 
implementation. 

Er  s  found  to  be  incorrect,  and  withdrawn  from  the  validation. 

P  s  passed. 

F  s  failed. 

FE  3  failed  to  execute  to  completion. 

FC  s  failed  to  compile  successfully. 

Fs  3  total  of  all  failures  (i.e.,  F+FE+FC). 

The  following  table  shows  that  the  ROLM  compiler  did  not  pass  all  applicable 
correct  tests. 

Test 


Class 

Pr 

NA 

Er 

P 

F 

FE 

FC 

Fs 

tPass 

A 

45 

1 

1 

#3 

0 

0 

0 

0 

100 

B 

552 

3 

38 

508 

3 

0 

0 

3 

99.4 

C 

699 

13 

17 

665 

4 

0 

0 

4 

99.4 

D 

12 

2 

0 

10 

0 

0 

0 

0 

100 

L 

10 

2 

0 

8 

0 

0 

0 

0 

100 

Total 

1318 

21 

56 

123# 

7 

0 

0 

7 

99.4 

i  in  the 

suite 

were 

processed  but 

were 

found 

to  be 

not 

applicable 

the  ROLM  translator  (see  section  4.2.7). 

In  addition,  56  tests  were  withdrawn  from  the  test  suite  because  they  did  not 
conform  to  the  ANSI/MIL-STD-1815A  Standard  for  the  Ada  Language  (see  Section 
4.2.6  for  details). 


2. 1  Class  A  Testing 

Class  A  tests  check  that  legal  Ada  programs  can  be  successfully  compiled. 
These  tests  are  executed  but  contain  no  executable  self-checking  capabilities. 
There  were  45  class  A  test  programs  processed  in  this  validation. 


2.1.1  Class  A  Test  Procedures 

Each  class  A  test  was  separately  compiled  and  executed.  However,  the 
only  purpose  of  execution  is  to  produce  a  message  indicating  that  the  test 
passed . 
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2.1.2  Class  A  Test  Results 

Successful  compilation  and  execution  without  any  error  messages  indicates 
the  tests  passed.  One  class  A  test  was  withdrawn  because  it  was  found  to 
contain  an  error.  In  addition,  one  clads  A  test  was  inapplicable  to  this 
implementation  (see  section  4.2.7).  The  remaining  43  class  A  tests  passed. 


2.2  Class  B  Testing 

Class  B  tests  check  the  ability  to  recognize  illegal  language  usage.  552 
class  B  tests  were  processed. 


2.2. 1  Class  B  Test  Procedures 

Each  class  B  test  was  separately  compiled.  The  resulting  test 
compilation  listings  were  manually  examined  to  see  whether  every  error  in  the 
test  was  detected.  If  all  errors  were  not  detected,  a  version  of  the  test  was 
created  that  contained  only  undetected  errors.  This  revised  version  was 
recompiled  and  the  results  analyzed.  If  all  errors  were  still  not  detected, 
the  revision  process  was  repeated  until  a  revised  test  contained  only  a  single 
illegal  construct. 

Similarly,  if  a  legal  construct  was  reported  to  be  illegal,  a  version  of 
the  test  was  created  that  contained  only  legal  constructs.  This  revised 
version  was  recompiled  and  the  results  analyzed. 

A  B  test  is  considered  to  fail  only  if  a  version  of  the  test  containing  a 
single  Illegal  construct  is  acoepted  by  the  compiler  (i.e.,  an  illegal 
construct  is  not  detected)  or  a  version  containing  no  errors  is  rejected 
(i.e.,  a  legal  construct  is  rejected). 


2.2.2  Class  B  Test  Results 

552  class  B  tests  were  presented  to  the  compiler.  Because  all  errors 
were  not  detected  when  compiling  the  original  tests  (and  because  in  one  case, 
a  legal  construct  was  rejected),  the  following  53  tests  were  modified  by 
removing  the  detected  errors;  the  modified  tests  were  then  resubmitted  to  see 
if  the  remaining  errors  would  be  detected  (or  if  the  legal  construct  would 
still  be  rejected): 

B22001A.TST  B24005A.ADA  B37301A.ADA  B45205A-AB .  ADA  B6100U.ADA 

B22001B.TST  B24005B.ADA  B37301B.ADA  B48002A-B.ADA  B64001A-B.ADA 

B22001C.TST  B24104A.ADA  B37307B.ADA  B51001A.ADA  B64004A.ADA 

B22003A.ADA  B26005A.ADA  B38001A.ADA  B51003A.ADA  B67001A-B.ADA 

B22004A.ADA  B33004A.ADA  B38003A-AB.ADA  B52002E-AB. ADA  B95006A.ADA 

B22004B.ADA  B35101/.ADA  138008A-B.ADA  B52003A.ADA  B95007A.ADA 

B22004C.ADA  B36171  -8  AD/  838008B-AB . ADA  B52006A.ADA  B99003A-AB.ADA 

B23004A.ADA  B36171B-P  .DA  B41 1 02A-B.ADA  B53009A.ADA  BC1001A-B.ADA 

B23004B. ADA  B 37003 A-aB. ADA  B41202A-B. ADA  B55A01 A-AB. ADA  BC1201B-AB. ADA 

B24001B.ADA  B37004A-B.ADA  B41302A.ADA  B56001 A-AB. ADA  BE3802A-B.ADA 

B24001C.ADA  B37201A.ADA  B44001A.ADA 
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2.2.2  Class  B  Test  Results 


Of  the  552  Class  B  tests  processed,  j  were  inapplicable  to  this 
implementation  (see  section  4.2.7),  and  38  were  withdrawn  because  the  tests 
were  incorrect  (see  section  4.2.6).  The  remaining  511  tests  contained  3200 
illegal  constructs;  two  illegal  constructs  were  not  detected  and  one  legal 
construct  was  rejected  (see  section  4.2.9  for  details). 


2. 3  Class  C  Testing 

Class  C  tests  cheok  that  legal  Ada  programs  are  correctly  compiled  and 
executed  by  an  implementation.  699  class  C  tests  were  processed  in  this 
validation  attempt. 


2.3.1  Class  C  Test  Procedures 

Each  Class  C  test  was  separately  compiled  and  executed.  The  tests  are 
self-checking  and  produce  PASS-FAIL  messages.  All  "failed"  tests  were 
individually  checked  to  see  if  they  were  correct  and  if  they  were  applicable 
to  the  implementation.  Those  tests  that  were  inapplicable  or  that  did  not 
conform  to  the  Ada  standard  were  withdrawn. 


2. 3.2  Class  £  Test  Results 

All  class  C  tests  were  processed  except  those  tests  requiring  a  floating 
point  precision  exceeding  SYSTEM. MAX J5ICITS  (277  tests). 

699  class  C  tests  were  processed.  17  tests  were  withdrawn  because  of 
errors  in  the  tests;  in  addition,  13  tests  were  found  to  be  inapplicable  to 
this  implementation.  Four  tests  could  not  be  successfully  processed  unless  an 
implementation  defined  pragma  was  inserted  to  identify  the  main  program.  This 
required  use  of  an  implementation  defined  pragma  was  not  considered  to  conform 
to  the  Standard,  and  these  tests  were  considered  to  fail.  The  remaining  665 
tests  passed. 


2.4  Class  D  Testing 

Class  D  tests  are  executable  tests  used  to  check  an  implementation's 
compilation  and  execution  capacities.  12  class  0  tests  were  used  in  this 
validation. 


Validation  Summary  Report  for  ROLM  Ada  Compiler 

2.4.1  Clasa  D  Test  Procedures 


May  1983  2-4 


2.4.1  Class  D  Test  Procedures 

Each  Class  0  test  was  separately  compiled  and  executed.  The  tests  are 
self-checking  and  produce  PASS-FAIL  messages. 


2.4.2  Class  D  Test  Results 

Of  the  12  class  D  tests.  10  passed  and  the  rest  were  found  to  be 
inapplicable  to  this  implementation.  See  section  4.2.7  for  further 
information. 


2.5  Class  L  Testing 

Class  L  tests  check  that  incomplete  or  illegal  Ada  programs  involving 
multiple  separately  compiled  source  files  are  detected  prior  to  executing  the 
main  program  or  elaborating  any  library  unit.  10  test  programs  were  processed 
in  this  validation  attempt. 


2.5. 1  Class  L  Test  Procedures 

Each  Class  L  test  was  separately  compiled  and  execution  was  attempted. 
The  tests  produce  FAIL  messages  if  executed.  All  "failed"  tests  were 
individually  checked  to  see  if  they  were  correct  and  if  they  were  applicable 
to  the  implementation.  Those  tests  that  were  inapplicable  or  that  did  not 
conform  to  the  Ada  standard  were  withdrawn. 


2.5.2  Class  L  Test  Results 

Of  the  10  class  L  tests,  2  were  found  to  be  inapplicable  to  this 
implementation  (see  section  4.2.7).  The  remaining  8  tests  passed. 
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SECTION  3 

Compiler  Nonconformances 

The  following  5  nonconformances  were  found  (see  Section  4.2.9  for 
details): 

.  Four  tests  required  the  use  of  an  implementation  defined  pragma  to 
identify  the  main  program:  C86001E-B,  CA1003A,  CA1003B,  and 

CA1005A. 

.  An  incompatible  constraint  made  a  program  illegal  instead  of 
causing  a  run-time  exception:  BE3802A-B. 

.  'ADDRESS  produced  the  wrong  type  when  used  in  a  generic  formal 
part:  BC1001A-B. 

.  The  closing  identifier  in  a  nested  accept  statement  did  not  match 
the  name  of  the  entry  being  accepted,  and  this  mismatch  was  not 
detected:  B95Q06A. 

.  LONG_INTEGER  was  predefined  in  STANDARD,  but  did  not  have  a  range 
substantially  greater  than  the  range  for  INTEGER. 
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SECTION  4 

Additional  Information 

This  section  describes  in  more  detail  how  the  validation  was  conducted. 


4. 1  Compiler  Parameters 

Certain  tests  do  not  apply  to  all  Ada  compilers,  e.g.,  compilers  are  not 
required  to  support  several  predefined  floating  point  types,  and  so  tests  must 
be  selected  based  on  the  predefined  types  an  implementation  actually  supports. 
In  addition,  some  tests  are  parameterized  according  to  the  maximum  token 
length  supported  by  an  implementation,  the  maximum  floating  point  precision 
supported,  etc.  The  implementation  dependent  parameters  used  in  performing 
this  validation  were: 


.  maximum  token  length:  100  characters. 


.  maximum  digits  value  for  floating  point  types:  6. 


.  SYSTEM. MIN_INT:  -2,147,483,646  (-(2**31  -2)). 

.  SYSTEM. MAX_INT:  2, 147,483,646  <2**31  -  2) . 

.  predefined  numeric  types:  INTEGER,  FLOAT,  SHORT JCNTEGER. 
.  INTEGER ’FIRST:  -2, 147,483.646  (-(2**31  -  2) ) . 

.  INTEGER 'LAST:  2, 147,483,646  (2**31  -  2). 

.  SHORT_INTEGER 'FIRST:  -32,767  (-(2**15)  +1). 

.  SHORT_INTEGER 'LAST :  32,767  (2 **15  -  1). 

.  source  character  set:  ASCII 


4.2  Testing  Information 

Tests  were  compiled/executed  at  the  ROLM  Corporation,  San  Jose,  CA.  All 
tests  were  processed  on  the  Data  General  MV/8000  in  San  Jose.  Since  ROLM 
stated  that  the  same  compiler  was  used  on  the  other  computers  involved  in  this 
validation  effort,  the  AVO  decided  it  was  sufficient  to  use  just  the 
executable  tests  on  the  other  machines.  Hence,  all  tests  except  the  class  B 
tests  were  executed  on  the  ROLM  MSE/800  (at  San  Jose).  No  tests  were  executed 
on  the  MV/4000,  MV/6000,  and  MV/10000,  since  the  compiler  did  not  pass  all  the 
tests  executed  on  the  MV/8000. 
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4.2.1  Pre-Test  Procedures 


Prior  to  testing,  appropriate  values  for  the  compiler-dependent 
parameters  were  determined.  These  values  were  used  to  adapt  tests  that  depend 
on  the  values.  The  adaptation  was  conducted  on-site  at  ROLM. 


4.2.2  Control  Files 

ROLM  provided  command  procedures  that  compiled  and  executed  tests 
automatically.  These  procedures  are  given  in  Appendix  B  of  this  report. 


4.2.3  Test  Procedures 

All  files  from  the  Version  1.1  tape  were  read  onto  disk.  The  package 
REPORT  and  the  procedure  CHECK_FXLE  were  first  compiled  and  the  corresponding 
library  file  saved  for  each  machine.  The  tests  checking  the  report  package 
and  the  CHECK_FILE  procedure  were  then  executed.  Then  all  tests  were  run  on 
the  MV/8000.  The  results  were  checked  manually. 


4.2.4  Test  Analysis  Procedures 

On  completion  of  testing,  all  results  were  analyzed  for  failed  class  A, 
C,  D,  or  L  programs,  and  all  class  B  compilation  results  were  individually 
analyzed.  Analysis  procedures  are  described  for  each  test  class  in  section  2. 

Tests  found  to  contain  errors  were  withdrawn. 


4.2.5  Performance  Information 

The  time  required  to  run  the  full  set  of  tests  on  the  MV/8000  was 
approximately  32  hours  and  10  minutes,  using  two  job  streams. 


4.2.6  Description  of  Errors  in  Withdrawn  Testa 

The  following  tests  in  version  1.1  of  the  ACVC  did  not  conform  to  the 
ANSI  Ada  standard  and  were  withdrawn  for  the  reasons  given  below. 

.  'RANGE  was  assumed  to  yield  a  subtype:  B32201A-B.ADA. 

.  An  explicit  range  constraint  was  specified  in  a  discriminant 
specification:  B37004H-B.ADA. 

.  An  expression  using  a  basic  operation  (in  particular,  the 
membership  and  short  circuit  logical  operations)  was  assumed  to  be 
Static:  C37307A.ADA,  C54A27A-AB. ADA. 

.  An  incorrect  value  in  an  expression  made  the  expression  non-static 
when  it  was  required  to  be  static:  B37310B-B.ADA. 
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.  An  illegal  reference  was  made  to  an  incomplete  type: 

C38102A-AB.ADA. 

.  A  test  checking  that  discriminant  specifications  satisfied  the 
conformance  rules  specified  in  RM  6.3*1  incorrectly  allowed  a  new 
name  (obtained  by  a  renaming  declaration)  to  be  considered 
identical  to  the  old  name:  B38103A-B.ADA. 

.  Qualification  instead  of  conversion  was  needed  to  disambiguate  an 
enumeration  literal:  C454G1B.ADA. 

.  Incorrect  allocator  syntax  was  used:  B48Q02J-AB.ADA. 

.  'RANGE  was  incorrectly  assumed  to  produce  a  static  range: 

A55B 1 4A-AB . ADA . 

.  An  attempt  was  made  to  read  an  out  parameter:  C58004C.ADA, 
C6J004A.ADA,  C64106A-B.ADA. 

.  Formal  parameters  of  a  limited  type  were  not  allowed  to  have 
default  expressions:  Bb1005A.ADA,  B81005B.ADA. 

.  This  test  was  constructed  so  that  a  single  error  required  two 

diagnostic  messages  for  the  test  to  be  passed,  violating  test 
coding  guidelines  that  no  "second-order"  illegal  constructs  would 
appear:  B74001A.ADA. 

.  A  deferred  constant  was  allowed  in  the  default  expression  of  a 
generic  formal  parameter;  B74301B-AB.ADA,  B74301C-AB.ADA. 

.  SELECT  ERROR  was  used  Incorrectly  as  the  name  of  a  predefined 

exception:  B83A01B.ADA,  BB2001A.ADA,  CC3120B-B.ADA. 

.  Two  tests  contained  errors  concerning  the  visibility  of  statement 
labels,  in  particular,  the  fact  that  these  labels  are  declared  in 
the  Innermost  enclosing  block  was  not  properly  noted  in  these 
tests:  B83A06A.ADA,  B83A06H.ADA. 

.  No  pragmas  in  this  test  should  be  considered  illegal:  B91002A.ADA 

.  Test  logic  incorrect:  C97114A-B.ADA,  C97115A-B.ADA. 

.  These  tests  are  obsolete:  BA1101F0-AB.ADA,  BA1 101F1M-AB. ADA, 
CC1007A-B.ADA. 

.  The  obsolete  attribute,  'ACTUAL  DELTA,  was  used  (instead  of 
'SMALL):  BC1002A-AB.ADA. 

.  A  generic  formal  parameter  with  a  discriminant  was  used  as  though 
the  discriminant  had  a  default  value:  BC1206A-B.ADA, 

CC3203A-8.ADA,  BC3205F-B. ADA,  BC3205G-B. ADA,  BC3205H-B. ADA, 

BC3205I2-B.ADA,  BC32Q5J-B.ADA,  BC34Q4B-B.ADA,  BC34Q5B-B.ADA, 
BC3405C-B. ADA. 
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.  A  generic  formal  parameter's  name  was  used  as  its  own  default  name: 
CC1301A-AB.ADA. 

.  The  'POS  and  'VAL  attributes  were  used  as  default  names  for  generic 
formal  subprograms:  CC1302A-AB.ADA. 

.  An  instantiation  with  an  unconstrained  type  having  default 
discriminants  was  incorrectly  considered  legal:  BC3204A-B.ADA, 
BC3204B-B. ADA,  BC3204C2-B. ADA,  BC  32 04D-B . ADA ,  BC3205A-B. ADA, 

BC3205B-B.ADA,  BC3205C-AB.ADA,  BC3205D2-B.ADA,  BC3405E-AB.ADA, 

BC3405F-AB.ADA. 

.  An  instantiation  with  an  unconstrained  array  type  was  Incorrectly 
marked  as  being  legal:  BC3403C-AB.ADA. 

.  An  undeclared  type  was  used:  BC3503C-B.ADA. 

.  Aggregates  were  written  for  a  limited  type:  CC3601C-AB.ADA. 

.  Exponentiation  was  used  with  a  fixed  point  type:  CE2401E-B.DEP. 

.  A  file  reference  was  omitted  in  a  call  to  SKIP  PAGE: 
CE3406C-B.ADA. 


4.2.7  Description  of  Inapplicable  Tests 


277  tests  were  not  processed  because  SYSTEM . MAX_DI GITS  was  6.  These 
tests  were: 


C241 13C,D, . . . , Y-B  C35708C.D, . . . ,Y-B  C45421C.D Y-B 

C35705C.D, . . . ,Y-B  C35802C.D, . . . ,Y-B  C45424C.D Y-B 

C35706C.D, . . . , Y-B  C45241C,D,...,Y-B  C45521C.D, . . . ,Y-B 

C35707C.D . Y-B  C45321C,D, . . . ,Y-B  C45621C.D, . . ,,Z-B 


7  tests  were  inapplicable  because  the  implementation  did  not  support 
SHORTJFLOAT,  LONG_FLOAT ,  or  LONG_LONG_INTEGER : 

SHORT  FLOAT  C34001F-B,  C35702A-AB,  B86001CP-AB 


LONG_FLOAT  C34001G-B,  C35702B-AB,  B86001CQ-AB 

LONG_LONG_INTEGER  B86001DT-AB 

LA3004A6M-AB  and  LA3004B6M-B  were  inapplicable  because  they  required 
support  for  the  INLINE  pragma. 

One  class  C  test,  C4A004A,  required  the  evaluation  of  32  bit  universal 
integer  expressions,  which  exceeded  the  capacity  of  the  implementation;  this 
test  was  therefore  considered  inapplicable. 

Results  for  two  Inapplicable  class  D  tests  are  given  in  Section  4.2.8. 
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Several  I/O  tests  were  inapplicable  because  the  implementation  did  not 
allow  sequential  or  direct  I/O  to  be  instantiated  with  unconstrained  array 
types  or  unconstrained  types  with  discriminants:  AE2101C-B,  CE2201B-B, 
CE2201D-8,  CE2201E-B,  CE2401D-B. 

The  following  tests  were  inapplicable  because  the  implementation  did 
support  the  file  modes,  IN  FILE,  OUT  FILE,  INOUT  FILE  as  well  as  RESET  and 
DELETE  operations:  CE2102D-B,-CE2102E-b7  CE2102F-B,~CE21G2G-B. 


4.2.8  Information  Derived  from  the  Tests 

Processing  of  the  following  tests  indicated  support  as  described  below 
for  a  variety  of  implementation  options  examined  by  the  tests. 

.  C24101A-B.TST:  if  a  based  integer  literal  has  a  value  exceeding 

SYSTEM.MAX_INT,  an  implementation  may  either  reject  the  compilation 
unit  at  compile  time  or  raise  NUMERIC__ERROR  at  run-time.  Raising 
NUMERICJERROR  at  run  time  is  preferred,  since  it  makes  programs 
compilable  for  a  wider  variety  of  implementations  (the  numeric 
literal  might  occur  in  an  unexecutable  portion  of  code) .  This  test 
showed  that  the  ROLM  Ada  compiler  rejects  a  program  containing  an 
integer  literal  that  exceeds  SYSTEM.MAX_INT. 

.  02 9002K-B . ADA :  This  test  declares  698  identifiers  and  was 
successfully  processed  by  the  implementation. 

.  C36202A-B,  C36202B-B,  C52103Y:  These  tests  decline  array  types 
having  a  dimension  whose  length  exceeds  INTEGER' LAST.  An 
implementation  is  allowed  to  raise  NUMERIC_ERROR  for  such  type 
declarations.  The  ROLM  Ada  implementation  raised  no  exception 
condition  for  these  tests. 

.  C  4A 002 A-AB . ADA ,  D4A002B-AB . ADA ,  C4A004A-AB. ADA,  D4A004B-AB. ADA : 

These  tests  contain  universal  integer  calculations  requiring  32  and 
64  bits  of  accuracy,  i.e.,  values  that  exceed  SYSTEM . MAX__INT  are 
used.  An  implementation  is  allowed  to  reject  programs  requiring 
such  calculations;  the  ROLM  compiler  rejected  these  programs. 

.  C52103X-AB.ADA,  C521 04X-B.ADA,  C52104Y.ADA:  These  tests  declare 

Boolean  arrays  with  INTEGER 'LAST +2  components.  An  implementation 
may  raise  NUMERICJERROR  at  the  type  declaration  or  STORAGEJERROR 
when  array  objects  of  these  types  are  declared,  or  it  may  accept 
the  type  and  object  declarations.  The  ROLM  compiler  raised 
STORAGE  JERROR . 

.  A  series  of  tests  (D55A03*-AB)  check  to  see  what  level  of  loop 
nesting  is  allowed  by  an  implementation.  Tests  containing  loops 
nested  65  levels  deep  were  passed. 

.  C55B16A-AB:  This  test  contains  a  representation  clause  for  a 

non-conti guous  enumeration  type  representation.  The  representation 
clause  was  accepted  by  the  implementation,  and  the  test  passed. 
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.  D56001B-AB  contains  blocks  nested  65  levels  deep.  This  test  was 

passed . 

.  C94004A-B. ADA:  This  test  checks  to  see  what  happens  when  a  library 

unit  initiates  a  task  and  a  main  progrmn  terminates  without 
insuring  that  the  library  unit's  task  is  terminated.  An 
implementation  is  allowed  to  terminate  the  library  unit  task,  or  it 
is  allowed  to  leave  the  task  in  execution.  This  test  showed  that 
such  library  tasks  do  not  terminate  when  the  main  program 
terminates. 

.  CA1012A4M-B.DEP:  This  test  checks  whether  an  implementation 
requires  generic  library  unit  bodies  to  be  compiled  in  the  same 
compilation  as  the  generic  declaration.  The  ROLM  implementation 
allows  generic  declarations  and  bodies  to  be  compiled  in  completely 
separate  compilations. 

.  AE2101C-B,  CE2201B-B,  CE2201D-B,  CE2201E-B,  CE2401D-B:  These  tests 

check  to  see  if  an  implementation  allows  instantiation  of  direct 
and  sequential  I/O  with  unconstrained  array  types  or  unconstrained 
record  types  with  discriminants.  The  results  show  that  such 
instantiations  are  not  allowed  by  the  ROLM  implementation. 

.  CE2107 *-B,  CE2110B-B,  CE2111D-B:  These  tests  check  to  see  if  more 

than  one  internal  file  may  be  associated  with  the  same  external 
file.  The  tests  show  that  such  multiple  associations  are  allowed 
even  when  the  internal  files  have  different  element  types  and  even 
when  one  internal  file  is  a  sequential  file  and  .  the  other  is  a 
direct  file.  In  addition,  the  delete  operation  can  be  applied  to 
an  external  file  that  is  associated  with  more  than  one  internal 
file,  and  no  exception  is  raised.  Finally,  the  tests  show  that 
RESETing  an  internal  file  has  no  effect  on  other  internal  files 
associated  with  the  same  external  file. 

.  CE2106A-B,  CE2110A-B:  These  tests  confirmed  that  dynamic  creation 

and  deletion  of  files  is  supported. 


4.2.9  Nonconformances  Detected 

The  following  portion  of  B95006A  was  compiled  without  detecting  any 
errors: 

TASK  T  IS 

ENTRY  EO; 

ENTRY  El  (I  :  INTEGER); 

ENTRY  E2  (BOOLEAN)  (I  :  INTEGER); 

END  T; 

TASK  BODY  T  IS 

J  :  INTEGER  :*  0; 

BEGIN 
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ACCEPT  El  (I  :  INTEGER)  DO 

ACCEPT  £2  (TRUE)  (I  :  INTEGER)  DO 
ACCEPT  EO  DO 
J  :=  I; 

END  EO;  —  OK. 

END  EO;  —  ERROR:  MISMATCHED  IDENTIFIER. 

END  El;  —  OK. 

END  T; 

The  following  portion  of  BC1001A-B  was  incorrectly  rejected: 

GENERIC 

WITH  PROCEDURE  PI  IS  <>  ;  —  OK. 

WITH  PROCEDURE  P2  IS  PI;  —  OK. 

X6  :  ADDRESS  :s  PI' ADDRESS;  —  OK. 

***  Expression  PI ’ADDRESS  is  the  wrong  type  for  context 
Context  requires  type  ’new  INTEGER1 

PACKACZ  P4  IS  END  P4; 

An  incompatible  constraint  was  reported  as  a  compile  time  error  in 
BEJ802A-8: 

TYPE  FIX  IS  DELTA  0.5  RANGE  0.0  ..  10.0; 

SUBTYPE  SFX  IS  FIX  DELTA  0.1; 

***  Delta  0.1  is  less  than  delta  of  prior  constraint 

Since  the  subtype  declaration  is  legal,  no  error  should  be  reported  (an 
exception  should  be  raised  at  run-time) . 

ROLM  said  they  did  not  support  LQNG_INTEGER ,  but  this  type  was  predefined 
in  STANDARD,  as  shown  by  test  C34001E-B,  which  was  compiled  without  error.  It 
was  then  found  that  the  predefined  type  LONG_INTEGER  had  a  range  that  was  only 
one  greater  than  the  predefined  INTEGER  type;  such  a  restricted  range  is  not 
compatible  with  the  Standard's  requirement  that  LONG_INTEGER  have  a 
"(substantially)  longer  range"  than  INTEGER  (See  Standard,  Section  3.5.4, 
paragraph  7). 
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SECTION  5 

Summary  and  Conclusions 

The  Ada  Validation  Office  identified  1318  of  the  ACVC  version  1.1  tests 
as  being  potentially  applicable  to  the  validation  of  the  ROLM  compiler  hosted 
on  the  ROLM  MSE/800  and  the  Data  General  MV/4000.  MV/6000,  MV/8000,  and 
MV/10000.  Of  these,  56  were  withdrawn  due  to  test  errors,  and  21  were 
determined  to  be  inapplicable  after  they  were  processed.  The  compiler  failed 
three  tests  and  required  use  of  an  implementation-defined  pragma  to  correctly 
run  four  additional  tests.  The  remaining  1234  tests  passed. 

The  AVO  considers  these  results  to  show  unacceptable  compliance  to 
ANS I /MIL-STD-1 81 5A . 
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Complete  List  of  Tests  and  Results  for  MV/8000 

This  Appendix  gives  a  complete  list  of  the  ACVC  test  files  used  in  the 
validation  attempt  for  the  MV/8000,  in  order  by  ACVC  Implementers'  Guide  (Ada 
Reference  Manual)  section  and  objective. 

To  obtain  more  information  about  a  test  itself,  the  test  name  indicates 
the  class  of  the  test  and  which  test  objective  in  the  ACVC  Implementers’  Guide 
applies  to  the  test.  The  name  is  interpreted  as  follows,  where  the  first 

column  below  indicates  the  character  position  in  the  name  and  the  second 

column,  the  meaning  of  that  position: 

1  Class  of  test  (A,  B,  C,  D,  E,  L). 

2  Implementers'  Guide  Chapter  number  (in  hexadecimal). 

3  Implementers'  Guide  Section  number  within  a  Chapter  (in 

hexadecimal) . 

4  Implementers'  Guide  Subsection  number  or  letter. 

5,  6  Implementers*  Guide  Test  Objective  number  (two  digit  decimal 

number ) . 

7  Test  sequence  letter  (A-Z). 

8  Compilation  sequence  digit  or  letter  (0-9, A-Z). 

9  When  there  are  several  compilation  units,  "M"  indicates  the 

main  program. 

Characters  8  and  9  are  only  present  for  tests  that  consist  of  several 
separately  compiled  units.  The  eighth  character  indicates  the  order  in  which 
the  units  are  to  be  compiled  (unit  0  is  compiled  first).  The  ninth  character 
is  only  present  for  the  main  program  and  is  always  "M". 

The  suffix  -AB  means  the  test  is  valid  for  both  the  ANSI  Ada  Standard  and 
the  version  of  Ada  published  in  July  1980.  A  -B  suffix  implies  the  test  is 
only  valid  for  the  ANSI  Standard.  Tests  without  a  suffix  are  considered  to  be 
applicable  to  both  the  ANSI  Standard  and  the  July  1980  version. 

A  file  name  ending  with  .TST  means  the  test  depends  on  one  or  more  of  the 
implementation  dependent  parameters  listed  in  Section  4.1.  A  file  name  ending 
with  .DEP  means  the  test  is  not  necessarily  applicable  to  all  implementations. 

The  result  for  each  file  is  also  given,  where: 

P  =  passed . 

PC  s  compilation  was  successful  (for  unit  of  multiple  unit  test). 

PS  *  passed  after  modifying  (splitting)  the  test  (e.g.,  to  see  if  all 
errors  can  be  detected  by  the  compiler). 

f  s  failed. 

NA  «  not  applicable  to  this  implementation. 

W  s  withdrawn  due  to  test  errors. 

Performance  data  was  not  available  in  machine  readable  form  at  the  time 
this  report  was  prepared.  The  number  of  semicolons  (i.e.,  statements)  in  each 
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test  is  indicated  by  SC;  the  number  of  illegal  constructs  (error  conditions) 
in  a  class  B  test  is  indicated  by  EC. 


!  results  for  each 

test 

file 

were 

as  follows 

B22001A.TST 

PS 

SC 

s 

26 

EC 

3 

8 

B22001B.TST 

PS 

SC 

3 

8 

EC 

3 

3 

B22001C.TST 

PS 

SC 

3 

9 

EC 

3 

3 

A22002A . ADA 

P 

SC 

s 

28 

B22003A.ADA 

PS 

SC 

s 

11 

EC 

3 

5 

B22004A. ADA 

PS 

sc 

3 

7 

EC 

X 

5 

B22004B.ADA 

PS 

sc 

3 

6 

EC 

3 

4 

B 22 004 C.  ADA 

PS 

sc 

3 

7 

EC 

3 

4 

C23001A.ADA 

p 

sc 

3 

16 

B23002A. ADA 

p 

sc 

3 

13 

EC 

X 

6 

C23003A.TST 

p 

sc 

3 

17 

B23004A. ADA 

PS 

sc 

3 

19 

EC 

3 

8 

B23004B.ADA 

PS 

sc 

3 

27 

EC 

8 

12 

B24001A. ADA 

p 

sc 

3 

30 

EC 

X 

14 

B24001B.ADA 

PS 

sc 

3 

36 

EC 

X 

17 

B24001C. ADA 

PS 

sc 

3 

37 

EC 

3 

17 

C24002A.ADA 

p 

sc 

3 

10 

C24002B. ADA 

p 

sc 

3 

10 

C24002C.ADA 

p 

sc 

X 

11 

C24003A.TST 

? 

sc 

3 

15 

C24003B.TST 

p 
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A29002E-B. ADA  P 

A29002F-B.ADA  P 

A29002G-B. ADA  P 

A29002H-B.ADA  P 

A29002I-B.ADA  P 

A2 9002 J-B. ADA  P 

D29002K-B.ADA  P 

B  32 1 0  3A-AB . ADA  P 

B 321 06A -B.  ADA  p 

B32201A-B.ADA  W 

B32202A-B. ADA  P 

B32202B-8.ADA  P 

B32202C-B.ADA  P 

C32203A-B. ADA  P 

A32203B-B.ADA  P 

A32203C-B. ADA  P 

A32203D-B.ADA  P 

B33001A. ADA  P 

B 33 002 A. ADA  P 

B33003A. ADA  P 

B33003B-AB.ADA  P 

B33003C-AB. ADA  P 

B33004A.ADA  PS 

C34001A-B.ADA  P 

C34001B-B.ADA  P 

C34001C-B. ADA  P 

C34001D— B.DEP  P 

C34001E-B.DEP  NA 

C34001F-B.DEP  NA 

C34001G-B.DEP  NA 

C34001H-B.ADA  P 

C34001I-8.ADA  P 

C34001K-B.ADA  P 

C j4001 L-B. ADA  P 

C 3400 1M-B. ADA  P 

C34001N-B.ADA  P 

C340010-B.ADA  P 

C34001P-B. ADA  P 

CJ4001Q-B.ADA  P 

C 34001 R-B. ADA  P 

B34001S-AB.ADA  P 

C 3400 1T-B. ADA  P 

B35101A.ADA  PS 

C 35 104 A. ADA  P 

B35301A.ADA  P 

B 35501 A. ADA  P 

C35504A-AB.ADA  P 

C 35504B-B , ADA  P 

C35505A.ADA  P 

C35505B.ADA  P 

B35506A.ADA  P 

B35506B. ADA  P 
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C35508A-AB.ADA  P 

C35508B-B. ADA  P 

B35701A.TST  P 

C35702A-AB.DEP  NA 

C35702B-AB. DEP  NA 

C35703A.ADA  P 

C35704A-AB.ADA  P 

C 3570 4B-AB. ADA  p 

C35704C-AB.ADA  P 

C35704D-AB.ADA  P 

C35705A-B.DEP  P 

C35705B-B.DEP  P 

C35706A-B.DEP  p 

C35706B-B.DEP  P 

C35707A-B.DEP  P 

C35707B-B.DEP  P 

C35708A-B.DEP  P 

C35708B-B.DEP  P 

B35709A.ADA  P 

C35802A-B.DEP  P 

C35802B-B.DEP  P 

B36101A-AB.ADA  P 

B36102A.ADA  P 

B36103A.ADA  P 

B36171A-B.ADA  PS 

B36171B-B.ADA  PS 

B36171C-AB.ADA  P 

B36171D-AB.ADA  P 

B361 7 1E-AB. ADA  P 

B36171F-AB.ADA  P 

B36171G-AB.ADA  P 

B36171H-AB.ADA  P 

8361 71I-AB. ADA  P 

C36172A-B.ADA  P 

C36174A.ADA  P 

B36201A-B. ADA  P 

C36202A-B.ADA  P 

C36202B-B.ADA  P 

C36204A-B.ADA  P 

C36205A.ADA  P 

C 3 6205B. ADA  P 
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C36802A.ADA  P 
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C36304A.ADA  P 

Cj6305A-AB.ADA  P 

B37003A-AB.ADA  PS 

B37004A-B.ADA  PS 

B37004C-B. ADA  P 

B37004D-B.ADA  P 

B37004E-B.ADA  P 

B37004F-B.ADA  P 

B37004G-B.ADA  P 

B37004H-B.ADA  W 

C37005A.ADA  P 

C37007A-AB.ADA  P 

C37008A-B.ADA  P 

C37008B-B.ADA  P 

C3701 1A-B. ADA  P 

C3701 2A-AB.ADA  P 

C3701 3A-AB. ADA  P 

B37101A.ADA  P 

C37103A-AB.ADA  P 

C37105A.ADA  P 

B37201A. ADA  PS 
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B37202B . ADA  P 

B37203A.ADA  P 
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C37208B-AB.ADA  P 

C37209A. ADA  P 

B37301A.ADA  PS 
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B37303A.ADA  P 

C37304A-AB.ADA  P 
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B38008B-AB. ADA  PS 

B38101B-AB.ADA  P 

C381 02A-AB. ADA  W 

C381 02B-B.ADA  P 

C38102C-B.ADA  P 

B38103A-B.ADA  .  W 

C38104A-B.ADA  P 

B38105B-AB.ADA  P 

B41 1 01A-B.ADA  P 

B41101C.ADA  P 

C41101D-B.ADA  P 

B41 1 02A-B.ADA  PS 

C41103A-B.ADA  P 

C41103B-B.ADA  P 

C41 105A-B. ADA  P 

C41 106A-B.ADA  P 

C41107A.ADA  P 

B41201A-B.ADA  P 

B41201C.ADA  P 

C41201D-B.ADA  P 

B41202A-B. ADA  PS 
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B41202C-B. ADA  P 

B41202D-B.ADA  P 

C41203A-B.ADA  P 

C41203B-B.ADA  P 

C41204A. ADA  P 

C41205A-B.ADA  P 

C41 206A. ADA  P 

C41301A-B.ADA  P 

B41 302 A.  ADA  PS 

C41303A-B.ADA  P 

C41303B-B.ADA  P 

C41303C-B.ADA  P 

C41 303E-B. ADA  P 

C41303F-B.ADA  P 

C41303G-B.ADA  P 

C41 3031 -B. ADA  P 

C41303J-B.ADA  P 
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C41303N-B.ADA  P 
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C41 306C-B. ADA  P 

844001  A. ADA  PS 

B44002A-B. ADA  P 

B44002B-B.ADA  P 

B44002C . ADA  P 

C45101A.ADA  P 

C45101B.ADA  P 

C45101C.ADA  P 

C45101E.ADA  P 

C45101G.ADA  P 

C45101H.ADA  P 

C45101I.ADA  P 

B45 1 Q2A-AB . ADA  P 

C45103A-AB.ADA  P 

C451 03B-AB . ADA  P 

C45103C-AB.ADA  P 

C45104A.ADA  P 

C45105A-AB.ADA  P 

C45105B-B.ADA  P 

C45106A.ADA  P 

C45201 A. ADA  P 

C45201B.ADA  P 

C45202A-AB. ADA  P 

B45203A.ADA  P 

B45203B-AB . ADA  P 

B4  520  5A-AB . ADA  PS 

B45206A-AB.ADA  P 

B45206B-B.ADA  P 

B45207A-AB. ADA  P 

B45207B-B.ADA  P 

B452 07C  -B .  ADA  P 

B45207D-B.ADA  P 

B45207G-B.ADA  P 

B45207H-B.ADA  P 

B45207I-B. ADA  P 

B45207J-B.ADA  P 

B45207M-AB . ADA  P 

B45207N-AB.ADA  P 

B452070-AB . ADA  P 

B45207P-B.ADA  P 

B45207S-AB.ADA  P 

B45207T-AB.ADA  P 

B45207U-AB . ADA  P 

B45207V-B.ADA  P 

B45208A-AB . ADA  P 

B45208B-B.ADA  P 

B45208C-B. ADA  P 

B45208G-AB.ADA  P 

B45208H-B. ADA  P 

B45208I-8.ADA  P 
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B45208S-AB.ADA 
B4  520 8T-AB . ADA 
C45210A. ADA 
C 4 5220 A. AD A 
C45220B. ADA 
C45220C.ADA 
C 4522 0D.  ADA 
C45220E-B.ADA 
C45241A-B.DEP 
C45241B-B.DEP 
B45261 A-AB. ADA 
B4  52 6 1 B-AB. ADA 
B45261C-AB. ADA 
B45261D-AB.ADA 
C45274A-AB . ADA 
C45274B-AB.ADA 
C45274C^AB.ADA 
C45321A-B.DEP 
C45321B-B.DEP 
C45345A-AB.ADA 
C45345B-AB.ADA 
C45401A.ADA 
C45401B. ADA 
B45402A.ADA 
C45421A-B.DEP 
C45421B-B.DEP 
C45424A-B. DEP 
C45424B-B.DEP 
C45521A-B.DEP 
C45521B-B.DEP 
B45522A.ADA 
B45533A-AB . ADA 
C45621A.DEP 
C45621B.DEP 
B48001A-B.ADA 
B48001B-B. ADA 
B48001C-AB. ADA 
B48001D-B. ADA 
B48002A-B.ADA 
B48002B-AB . ADA 
B48002C-B. ADA 
B48002D-B. ADA 
B48002E-AB. ADA 
B48002F-AB. ADA 
B48002G-AB. ADA 
B48002I-B. ADA 
B4 8002 J-AB. ADA 
C48003A-B.ADA 
C48003B-B.ADA 
C48003C-B.ADA 
C48003D-B.ADA 
C48003E-B. ADA 
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C74007A.ADA  P 

C74Q07B-AB.ADA  P 

C74008A. ADA  P 

C74Q09A-B.ADA  P 

B74101A-B.ADA  P 

B74102B-B.ADA  P 

C74203B-B.ADA  P 

B74301B-AB.ADA  W 

B74301C-AB.ADA  W 

B83A01A. ADA  p 

B33A01B.ADA  W 

B83A01C. ADA  P 

A83A02A.ADA  P 

A83A02B.ADA  P 

A83A05A-AB.ADA  P 

B83A06A. ADA  W 

B83A06B. ADA  P 

B83A06H.ADA  W 

633B01 A-AB. ADA  P 

C33B02A.ADA  P 

C83B02B. ADA  P 

B83B02C.ADA  P 

B83C01 A-AB. ADA  P 

C83C01B.ADA  P 

A83C01C.ADA  P 

A83C01D.ADA  P 

A83C01E.ADA  P 

A83C01F.ADA  P 

A83C01G.ADA  P 

A83C01H.ADA  P 

A83C01I .ADA  P 

A83C01 J.ADA  P 

B  83  C  02  A.  ADA  p 

C83E02A.ADA  P 

C83E02B. ADA  P 

B83E02C-B.ADA  P 

C83E03A.ADA  P 

C83E04A.ADA  P 

C83F01A.ADA  P 

C83F01B.A0A  P 

C33F01C0.ADA  PC 

C83F01C1 .ADA  PC 

C83F01C2M.ADA  P 

C83F01D0M.ADA  P 

C83F01D1 .ADA  PC 

B83F02A.ADA  P 

B83F02B. ADA  p 

C83F03A.ADA  P 

C83F03B.ADA  P 

C83F03C0.ADA  PC 

C83F03C1.ADA  PC 

C83F03C2M.ADA  P 
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C94002A-B.ADA 
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P 

sc  = 

79 

C94003A-B.ADA 
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29 
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C94007B-B.ADA 

P 

sc  = 

83 

895001  A. ADA 

P 

sc  = 

49 

EC  s 

18 
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C95009B.ADA 
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C 950 10 A. A DA 

P 
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29 

C9501 1A.ADA 

P 
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C95012A-B.ADA 

P 

sc  = 

38 

C95013A-B.ADA 
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B97 1 08A-AB . ADA  P 

B97108B-AB.ADA  P 

B97 1 09A-AB . ADA  P 

B971 10A-AB.ADA  P 

B97 11 OB-AB . ADA  P 

B971 1 1A-AB.ADA  P 

C971 13A-B. ADA  P 

C  97 1 1 4A-B.ADA  W 

C97115A-B.ADA  W 

C97201A-AB.ADA  P 

C97201D-AB.ADA  P 

C 9720 1E-AB. ADA  P 

C 97201 G-AB. ADA  P 

C97201H-AB.ADA  P 

C 97201 X-AB. ADA  P 

C 972 02A-AB . ADA  P 

C97203A-AB. ADA  P 

C97203B-AB.ADA  P 

C972Q4A-B. ADA  P 

C97303A-AB.ADA  P 

C97303B-AB.ADA  P 

C97304A-B.ADA  P 

B 99001 A-AB. ADA  P 

B99001B-B.ADA  P 

B99002A-B. ADA  P 

B99002B-B.ADA  P 

B99002C-B.ADA  P 

B99003A-AB.ADA  PS 

B9A001 A-AB. ADA  P 

B  9A00 1 B-AB . ADA  P 

C9A003A-B.  ADA  P 

C9A004A-B.ADA  P 

C9A005A-B. ADA  P 

C9A006A-B.ADA  P 

C9A007A-B. ADA  P 

CA1002A0-B.ADA  PC 

CA1002A1-B. ADA  PC 

CA1002A2-B.ADA  PC 

CA 1 002A  3M-B . ADA  P 

CA1 002A4-B.ADA  PC 

CA1002A5-B.ADA  PC 

CA1002A6-B.ADA  PC 

CA 1 002A7-B . ADA  PC 

CA1002A8-B.ADA  PC 

CA  1 002A  9-B .  ADA  PC 

CA1003A.ADA  F 

CA1003B. ADA  F 

CA1004A.ADA  P 

CA1005A. ADA  F 

CA1006A-AB.ADA  P 

CAIOObAO. ADA  PC 

CA1008A1M.ADA  P 
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62 

EC 

3 

12 

p 

sc 

3 

43 

EC 

3 

8 

w 

p 

sc 

3 

34 

EC 

3 

6 

p 

sc 

3 

18 

EC 

3 

3 

p 

sc 

3 

43 

p 

sc 

3 

48 

p 

sc 

3 

57 

p 

sc 

3 

33 

p 

sc 

3 

40 
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CC3504F-B.ADA 

P 

SC  s 

45 

CC3504G-B.ADA 

P 

SC  S 

54 

CC3504H-8.ADA 

P 

sc  = 

35 

CC3504I-B.ADA 

P 

SC  s 

29 

CC 3504 J-B. ADA 

P 

sc  = 

30 

CC3504K-B.ADA 

P 

sc  = 

30 

CC36Q1C-AB. ADA 

W 

CC3602A-AB.ADA 

P 

sc  = 

36 

AE2101A-B. ADA 

P 

SC  S 

45 

AE2101B-B.ADA 

P 

sc  = 

15 

AE21 01C-B. ADA 

NA 

sc  = 

17 

AE2101D-B.ADA 

P 

sc  = 

15 

BE2101E-B.ADA 

P 

sc  = 

42 

EC  s  11 

CE2102A-B.DEP 

P 

sc  = 

73 

CE2102B-B.DEP 

P 

sc  = 

71 

CE2102C-B.DEP 

P 

SC  S 

52 

CE2102D-8.DEP 

NA 

sc  = 

63 

CE2102E-B.DEP 

NA 

sc  = 

63 

CE2102F-B.DEP 

NA 

SC  s 

34 

CE2102G-B.DEP 

NA 

SC  s 

64 

CE2103A-B.DEP 

P 

sc  = 

87 

CE2103B-B.DEP 

P 

SC  S 

87 

CE2104A-B.DEP 

P 

SC  3 

59 

CE2104B-B.DEP 

P 

sc  = 

66 

CE2105A-B.DEP 

P 

SC  3 

25 

CE2106A-B.DEP 

P 

SC  3 

59 

CE2107A-8.DEP 

P 

SC  3 

45 

CE2107B-B.DEP 

P 

SC  3 

36 

CE2107C-B.DEP 

P 

SC  3 

37 

CE2107D-B.DEP 

P 

SC  3 

43 

CE2107E-B.DEP 

P 

SC  3 

34 

CE2108A-8.DEP 

P 

SC  3 

16 

CE2108B-B.DEP 

P 

SC  3 

20 

CE2108C-B.DEP 

P 

SC  3 

20 

CE2108D-B.DEP 

P 

SC  3 

26 

CE2108E-B.DEP 

P 

SC  3 

20 

CE2108F-8.DEP 

P 

SC  3 

26 

CE2109A-B.DEP 

P 

SC  3 

25 

CE21 10A-B.DEP 

P 

SC  3 

47 

CE21 1 OB-B.DEP 

P 

SC  3 

43 

CE21 1 1A-B.DEP 

P 

SC  3 

73 

CE21 1 1B-B.DEP 

P 

SC  3 

53 

CE21 1 1C-B.DEP 

P 

SC  3 

87 

CE21 1 1D-B.DEP 

P 

SC  3 

69 

BE21 12A-B.ADA 

P 

SC  3 

48 

EC  s  33 

EE2112B-B.ADA 

P 

SC  3 

19 

EC  s  10 

BE21 12C-B.ADA 

P 

SC  3 

26 

EC  s  13 

BE21 1 4A-B.ADA 

P 

SC  3 

18 

EC  =  3 

CE2201 A-8. DEP 

P 

SC  3  119 

CE2201B-B.DEP 

NA 

SC  3 

81 

CE2201C-B.DEP 

P 

SC  3 

51 

CE2201D-B.DEP 

NA 

SC  3 

36 

A-27 
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CE2201E-B.DEP 

NA 

SC 

s 

38 

CE2201F-B.DEP 

P 

sc 

s 

36 

BE2208A-B. ADA 

P 

sc 

s 

12 

EC 

3 

3 

CE2210A-B.DEP 

P 

sc 

s 

26 

CE2401A-B.DEP 

P 

sc 

s 

103 

CE2401B-B.DEP 

P 

sc 

s 

104 

CE2401C-B.DEP 

P 

sc 

s 

111 

CE2401D-B.DEP 

NA 

sc 

s 

75 

CE2401E-B.DEP 

W 

CE2401F-B.DEP 

P 

sc 

s 

47 

CE2402A-B.DEP 

P 

sc 

s 

57 

CE2404A-B.DEP 

P 

sc 

s 

34 

CE2405B-B.DEP 

P 

sc 

s 

21 

CE2406A-B.DEP 

P 

sc 

s 

34 

CE2407A-B.DEP 

P 

sc 

s 

26 

CE2408A-B.DEP 

P 

sc 

s 

30 

CE2409A-B.DEP 

P 

sc 

s 

26 

CE2410A-B.DEP 

P 

sc 

s 

27 

BE 3001 A-B. ADA 

P 

sc 

s 

10 

EC 

3 

4 

BE3002A-B.ADA 

P 

sc 

s 

17 

EC 

3 

4 

CE3002B-B. ADA 

P 

sc 

s 

20 

CE3002C-B.ADA 

P 

sc 

s 

17 

CE3002D-B. ADA 

P 

sc 

s 

18 

BE3002E-B.ADA 

P 

sc 

3 

8 

EC 

3 

3 

CE3002F-B.ADA 

P 

sc 

x 

14 

AE3101A-B.DEP 

P 

sc 

s 

19 

CE3102A-B.DEP 

P 

sc 

s 

54 

CE3102D-B.DEP 

P 

sc 

X 

18 

CE3103A-B.ADA 

P 

sc 

X 

45 

CE3104A-B.DEP 

P 

sc 

X 

49 

BE3105A-B.ADA 

P 

sc 

X 

5 

EC 

3 

1 

CE3202A-B.DEP 

P 

sc 

X 

11 

CE3203A-B.DEP 

P 

sc 

X 

38 

BE3205A-B.ADA 

P 

sc 

X 

9 

EC 

3 

6 

CE3206A-B.DEP 

P 

sc 

3 

18 

CE3208A-B.DEP 

P 

sc 

3 

28 

CE3301A-B.DEP 

P 

sc 

3 

30 

CE3301B-B.DEP 

P 

sc 

3 

50 

CE3301C-B.DEP 

P 

sc 

3 

23 

CE3302A-B.DEP 

P 

sc 

s 

33 

CE3303A-B.DEP 

P 

sc 

3 

30 

CE3305A-B.DEP 

P 

sc 

s 

37 

CE3402A-B. ADA 

P 

sc 

3 

26 

CE3402B-B.ADA 

P 

sc 

3 

41 

CE3402C-B.ADA 

P 

sc 

3 

35 

CE3402D-B.ADA 

P 

sc 

3 

25 

CE3402E-B. ADA 

P 

sc 

3 

25 

CE3403A-B.ADA 

P 

sc 

3 

26 

CE3403B-B.ADA 

P 

sc 

3 

54 

CE3403C-B.ADA 

P 

sc 

3 

32 

CE3403D-B.ADA 

P 

sc 

3 

28 

CE3403E-B.ADA 

P 

sc 

3 

43 
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CE3403F-B.ADA 
CE3404A-B.ADA 
CE3404B-B.ADA 
CE3404C-B.ADA 
CE3405A-B.ADA 
CE3405B-B.ADA 
CE3405C-B.ADA 
CE3405D-B.ADA 
CE3406A-B.ADA 
CE3406B-B.ADA 
CE3406C-B.ADA 
CE3406D-B.ADA 
CE3407A-8.ADA 
CE3407B-B.ADA 
CE3407C-B. ADA 
CE3408A-B.ADA 
CE3408B-B. ADA 
CE3408C-B.ADA 
CE3409A-B. ADA 
CE3409B-B.ADA 
CE3409C-B. ADA 
CE3409D-B.ADA 
CE3409E-B. ADA 
CE3409F-B.ADA 
CE3410A-B.ADA 
CE3410B-B.ADA 
CE3410C-B. ADA 
CE3410D-B.ADA 
CE3410E-B.ADA 
CE3410F-B.ADA 
CE341 1A-B. ADA 
CE341 1C-B.ADA 
CE341 2A-8. ADA 
CE3412C-B.ADA 
CE3413A-B.ADA 
CE3413C-B.ADA 
BE3501A-B. ADA 
CE3601A-B.ADA 
CE3602A-B.DEP 
CE3602B-B.DEP 
CE3602C-B.DEP 
CE3602D-B.DEP 
CE3603A-B.DEP 
CE3604A-B.DEP 
CE3605A-B.DEP 
CE3605B-B.DEP 
CE3605C-B.DEP 
CE3605D-B.DEP 
CE3605E-B.DEP 
CE3606A-B.DEP 
CE3606B-B.DEP 
BE3606C-B.ADA 


p 

sc 

s 

46 

p 

sc 

s 

31 

p 

sc 

s 

36 

p 

sc 

s 

70 

p 

sc 

s 

36 

p 

sc 

s 

26 

p 

sc 

s 

30 

p 

sc 

s 

32 

p 

sc 

s 

42 

p 

sc 

s 

30 

w 

p 

sc 

s 

28 

p 

sc 

s 

51 

p 

sc 

s 

26 

p 

sc 

s 

31 

p 

sc 

s 

49 

p 

sc 

s 

41 

p 

sc 

s 

31 

p 

sc 

s 

23 

p 

sc 

s 

32 

p 

sc 

: 

68 

p 

sc 

s 

39 

p 

sc 

s 

29 

p 

sc 

3 

25 

p 

sc 

3 

23 

p 

sc 

3 

32 

p 

sc 

3 

66 

p 

sc 

3 

32 

p 

sc 

3 

23 

p 

sc 

3 

25 

p 

sc 

3 

64 

p 

sc 

3 

50 

p 

sc 

3 

51 

p 

sc 

3 

54 

p 

sc 

3 

36 

p 

sc 

3 

50 

p 

sc 

3 

8 

p 

sc 

3 

45 

p 

sc 

3 

55 

p 

sc 

3 

54 

p 

sc 

3 

56 

p 

sc 

3 

48 

p 

sc 

3 

84 

p 

sc 

3 

117 

p 

sc 

3 

24 

p 

sc 

3 

46 

p 

sc 

3 

55 

p 

sc 

3 

56 

p 

sc 

3 

34 

p 

sc 

3 

30 

p 

sc 

3 

20 

p 

sc 

3 

6 

EC  a  4 


EC  *  1 
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CE3701A-B.DEP 

P 

sc 

s 

33 

AE3702A-B.DEP 

P 

sc 

s 

21 

BE3703A-B . ADA 

P 

sc 

s 

23 

CE3704A-B.DEP 

P 

sc 

s 

40 

CE3704B-B.DEP 

P 

sc 

s 

31 

CE3704C-B.ADA 

P 

sc 

s 

29 

CE3704D-B.DEP 

P 

sc 

s 

54 

CE3704E-B.DEP 

P 

sc 

s 

37 

CE3704F-B.DEP 

P 

sc 

s 

40 

CE3706C-B.ADA 

P 

sc 

s 

36 

CE3706F-B.DEP 

P 

sc 

s 

29 

CE3706G-B.ADA 

P 

sc 

s 

26 

CE3707A-B.DEP 

P 

sc 

s 

53 

CE3801A-B.DEP 

P 

sc 

s' 

39 

BE3802A-B.ADA 

F 

sc 

s 

25 

BE3803A-B.ADA 

P 

sc 

s 

27 

CE3804A-B.DEP 

P 

sc 

s 

61 

CE3804B-B.DEP 

P 

sc 

s 

61 

CE3804C-B.DEP 

P 

sc 

s 

64 

CE3804D-B.ADA 

P 

sc 

s 

55 

CE3804E-B.ADA 

P 

sc 

s 

55 

CE3804F-B.DEP 

P 

sc 

s 

30 

CE3804G-B.DEP 

P 

sc 

s 

79 

CE3804I-B.DEP 

P 

sc 

s 

54 

CE3805A-B.DEP 

P 

sc 

3 

67 

CE3805B-B. DEP 

P 

sc 

s 

68 

CE3806A-B.DEP 

P 

sc 

s 

44 

CE3806C-B.DEP 

P 

sc 

s 

55 

CE3806D-B.DEP 

P 

sc 

3 

64 

CE3806E-B.ADA 

P 

sc 

3 

94 

CE3809A-B.DEP 

P 

sc 

-3 

86 

CE3809B-B.DEP 

P 

sc 

s 

86 

CE3810A-B.DEP 

P 

sc 

3 

42 

CE3901A-B.DEP 

P 

sc 

3 

23 

BE3902A-B. ADA 

P 

sc 

3 

24 

BE3903A-B.ADA 

P 

sc 

s 

28 

CE3905A-B.DEP 

P 

sc 

s 

38 

CE3905B-B.DEP 

P 

sc 

3 

31 

CE3905C-B.DEP 

P 

sc 

3 

71 

CE3906A-B.DEP 

P 

sc 

3 

34 

CE3906B-B.DEP 

P 

sc 

3 

31 

CE3906C-B.DEP 

P 

sc 

3 

37 

CE3906D-B. ADA 

P 

sc 

3 

26 

CE3906E-B.DEP 

P 

sc 

3 

31 

CE3906F-B. ADA 

P 

sc 

3 

41 

CE3907A-B.DEP 

P 

sc 

3 

25 

CE3908A-B.DEP 

P 

sc 

3 

29 

CZ1 101A-AB.ADA 

P 

sc 

3 

23 

CZ 1 102A-AB. ADA 

P 

sc 

3 

15 

CZ1103A-B-ADA 

P 

sc 

3 

85 

REPORT  SPEC-AB.ADA 

PC 

sc 

3 

11 

report”bodt-b.ada 

PC 

sc 

3 

82 

CHECK  FILE -8. ADA 

PC 

sc 

3 

68 

EC  =  8 


EC  a  7 
EC  a  12 


EC  a  3 
EC  a  12 
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APPENDIX  B 

Command  Procedures  Used  to  Process  the  Tests 

These  procedures  were  used  to  create  batch  jobs  that  processed  the  tests. 
A  file  of  test  names  was  used  to  specify  what  tests  were  to  be  processed.  The 
main  command  procedure  is  CLX.CLX.  The  procedures  are  listed  alphabetically. 


B. 1  ACOMP.CLI 
Push 

[JNeq.SIS,] 

Del/2=ign  SlS+.<ob,sr,str ,tree> 

string  /base  lib*:ade:system.alib:library .lib 

[  lneq,SO/mS,T 

String  /mainjjrogramC Istring] 

[lend] 

C  !Neq,SO/eS, ] 

String  /ps_program_echo[ Istring] 

[tend] 

[!Neq,SO/lS,] 

String  /sm__listing[  Istring] 

[tend] 

AdaC Istring]  S1-S 

Expand  [tfllename  [lename  SI %]♦. srJ 
[!Neq,[tsize  [Istring]], 0] 
del/2 sign  [lename  SISLer 
string/ It 

xeq/s  masm/n/e=[ lename  SlS].er  ([(filename  [lename  %1%]+.sr]) 

[ ! nequal , ( [ ! string] ) , ( ) ] 

write  ***  Error  in  SIS  •••[tascii  207] 

string 

ty  [  lename  SISLer 
[ ! end] 

[ I else] 

break. cli  SIS 
[ INeq, [ I  string] ,B] 

W: r  No  assembly  module  found!  Hi 
[tend] 

[ 1  end] 

[ I  end] 

Pop 


B.2  ADA. CLI 
Push;  Prompt  Pop 

proc/block/ioc/sons/pris2/1 swarn/2»warn  :ade_programs;adaSO/S  S1-S  A 

!  alib 


Pop 
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B.3  ADALOAD.CLI 
Push;  Prompt  Pop 

x/1*warn/2*warn  :ade_programs:adaloadSO/S  X 1-S 
Pop 


B.4  ALINK. CLI 

[  !Neq, XI X, J 

Cat  [ lename  XIX] 

AdaloadSO/S/No_map  Alib  [{string} 

Break. eli  [lename  XI %] 

[!Neq,[ ! string], L] 

Del/2=ign  [lename  XI S]+.<map,log,cli>  [lename  X1X]+elab+<sr ,ob> 
[lelse] 

Del/2*ign  [lename  X1X]+.map  [lename  S1S]+elab+<sr ,ob> 

[lend] 

Del/2*ign  [lename  S1S]+.<strttree,ob,sr> 

[lelse] 

Ur  No  link  specified... 

[lend] 


B.5  ALINKEX. CLI 
alink  XIX 

x/ 1 swarn/2 warn  [ 1 ename  XIX] 


B.6  AMASM.CLI 
[INeq.XIXJ 

[!Neq,[! filename  [lename  S1S]*.sr]f J 
del/2* ign  [lename  X1X].<ls,er> 

Masm/N/e*[ lename  SIS]. er/l*[ lename  XIX]. Is  [(filename  [lename  X1X]+ 
[ INeq.SO/qprS, ] 

Qpri/del  [lename  XIX]. Is 
[lend] 

[ 1  end] 

[lend] 


B.7  BATCH. CLI 


PUSH 

SEA  [1DIR],[ 1SEA] 

DIR  SOS 
[tne.XIX,] 

XI -X 
[lelse] 

WRITE  Current  directory  is  [1DIR] 
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t lend] 


B.8  BLD.CLI 

Mr  AC VC  tests  start . 

Cieq  [fefi  C !dir]] ,NEW_TAPE] 

del/2sign  rep+.<ob,str,tree,sr>  check_file_b+.<ob,str,tree,sr> 
ada/base_libs:ade:system.alib:library7lib  ""repspec  repbody  check  file  b 
move/v/del  ch(2, 3. 5,6, 7, 8, 9, 10, 11,12, 14)  alib.lib 
chi  4 

batch/tagsch14/job=ch14%0/%  do  chap  14 
dir  ~ch2 

bate h/ tag= ch2 / j ob = ch2 10 /%  do  chap  2 
dir  "ch3 

batch/ tagsch3/job*ch3XO/%  do  chap  3 
dir  ~ch4 

batch/ tagsch4/job=ch4%0/%  do_chap  4 
dir  “ch5 

batch/tagschi/Job=ch5X0/i  do_chap  5 
dir  “ch6 

batch/tag=ch6/ job=ch6%0/X  do_chap  6 
dir  "*ch7 

batch/ tag* ch7/ job a ch7%0/S  do_chap  7 
dir  ~ch8 

batch/tag*ch8/job*ch8X0/X  do_chap  8 
dir  "chS 

batch/ tag*ch9/ Job* ch9%0/X  do_chap  9 
dir  *ch10 

batch/tag*ch10/job=ch10X0/%  do  chap  10 
dir  "chll 

batch/tag*ch11/jobach11X0/X  do  chap  11 
dir  Ach12 

batch/tagach12/jobach12X0/%  do  chap  12 
dir  ~ch2 

batch/ tagach2x/ Jobach2xS0/%  do  chapx  2 
dir  *ch3 

batch/ tagaeh3x/ jobsch3x%0/%  do  chapx  3 
dir  Ach4 

batch/ tagach4x/jobach4xiO/X  do_chapx  4 
dir  *ch5 

batch/ tagach5x/ jobs ch5xX0/X  do_chapx  5 
dir  *ch6  ~ 

batoh/tagachfix/ jobaoh6xX0/X  do_chapx  6 
dir  Aoh9 

batch/ tagach9 x/ jobs ch9xX0/%  do  chapx  9 
dir  *ch12 

batch/tagach12x/Jobach12xX0/X  do_chapx  12 
C false]  ” 

Hr  Wrong  directory  to  start  tests 
[ I  end] 
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B.9  BREAK. CLI 


C !eq,%0/s%, ] 
string/k 

%0%/s  [! explode  %1%] 
[ (else] 

string  %1% 

[lend] 


B. 10  BREAK2.CLI 

[  leq,%0/s%,] 
string/k 

%0%/s  Clexplode  %1 % ] 
[ ! else] 

[lEq,%2%,A] 

String  10 
[ felse] 

[ !Eq,%2%,B] 

String  11 
[ {else] 

[ IEq,%2%,C] 
String  12 
Clelse] 

[ lEq,%2%,E] 
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B. 12  CAT.CLI 

C  leq.XQ/sX, ] 

String/k 

SOS/s  [Sexplode  [ Jename  Sit]] 
[ ! else] 

C  !Neq  S1X,[!asc  137]] 

String  [!string]X1X 
C  !Neq, S2X,  ] 

SOS/ s  S2-S 
[lend] 

[lend] 

[lend] 


B.  13  CATCH. CLI 

Wr  Chapter  Sit  bug  list 
catch  (Cchtl S. files]) 

Wr 


B.14  CHANGE. CLI 
PUSH 

SEA  [ !DIR ] , [  !SEA ] 

DIR  SOS 
[Jne.SISJ 
*  S1-S 
[ ielse] 

WRITE  Current  directory  is  [IDIR] 
[ lend] 


3. 15  CH.CLI 

crossref/langsad a/ls~ch% It/no so urce/rwonly/filesschSIS.files/Nocount 


B. 16  CLEANUP. CLI 
UEq.SIS,] 

d€l/2*ign  +.<ob,str, tree, st, log, sr, map, pr,cli>  title  name. Ik 
[ ! else] 

del/v/2sign  SI S+. <ob ,str .tree ,st .log ,sr .map ,pr ,cli> 

[lend] 
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B. 17  CLG.CLI 
Wr 

wr  ########,,,, Compile,  link  and  execution  of  *1%, ,, ,######## 
Wr 

break. cli  % 1% 
t !eq,[ !string],B3 
acomp/e  %1-X 
[Seise] 

acomp/m  X 1-X 
alink  XII 

[  !Une,[ !size,[ Sename  X1XI.PR3.0] 

[ !  Eq ,  [ !  ename  XIX]  ,C9J»004A_B] 

Wr  XIX  requires  manual  intervention 

[ ! Eq . [ ! logon] .CONSOLE] 

x/1 swarn/2swarn  [Sename  XIX] 

[Send] 

[ Seise] 

Wr  Execution  starts  at  [ (Time] 
x/1=warn/2=warn  [1 ename  XIX] 
wr  Execution  completed  at  [Stime] 

[Send] 

[ Seise] 

Wr  No  [Sename  X1X].pr  found! ! Si 
[Send] 

[Send] 


B. 18  CLX.CLI 

[ SNeq.XI X, ] 

Break2.cli  XIX 
[!Neq,[!str],Z] 

Var9  [! string] 

[Send] 

[!Eq,[! filename  TITLE],] 

Wr 

Dash  [Sexplode  XIX] 

Wr  ########,,,, COMPILATION  LINiaNG  AND  EXECUTION  OF  [ SSTR ],,,, ######## 
Wr 

Wr/l=title 
[ SEQ, XO/KEEPX, ] 

[ SUeq,[ Svar9],8] 

Del/2=ign  alib.lib 
Copy  Alib.lib  '“alib.lib 
[Seise] 

[ !Ueq,[ Svar9l, 10] 

Del/2*ign  alib.lib 
Copy  Alib.lib  "alib.lib 
[Seise] 

[ SNeq.XI /UX,] 

Del/2*ign  alib.lib 
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Copy  Alib .lib  “alib.lib 
[tend] 

C'.end] 

[lend] 

[iendl 
L ! end] 

Break. cli  tit 
C ! eq, [! string], 8] 

Compile  tit  12 -t 
Del/2=ign  title 
[  lelse] 

C!Neq,Xl/SX,] 

Compile  tit  X2-t 
C lelse] 

C INeq.tl /Mt, ] 

Cat  Ctename  tit] 

Compile/msC !str]  tit  t2-t 
C lelse] 

Compile/m  tit  X2-X 
[ ! end] 

L  INeq.tl /NLX, ] 

Del/2sign  name. Ik  name.pr 
Wr/l=name.lk  XU 
Wr/laname.pr  Clename  tit]. PR 
C I  else] 

C  INeq.tl /LNKt, ] 

Alink  Cname.lk] 

String  C name.pr] 

ClEq.Clfi  Cistring]],] 

Wr  EXECUTION  STARTS  [I time] 

Wr 

Wr  -  Cistring]  DOES  NOT  EXIST. 

Wr  •***  Cistring]  FAILED 
Wr 

String  C! time] 

L I  else] 

Wr  EXECUTION  STARTS  CITIME] 

String  Cl  time] 

X/1 awarn/2 swarn  C name.pr] 

Cl  end] 

Elapsed  time  Clexplode  Cltime]]  Clexplode  Cistring]] 
CIUGT  CTvarO],1] 

Wr  EXECUTION  TIME:  ClVARO]  SECONDS 
Cl  else] 

Wr  EXECUTION  TIME:  ClVARO]  SECOND 
Cl  end] 

Runpr  chC lvar9].lg  Cname.lk] 

Del/2*ign  +.<pr ,st>  title  naoe.<lk,pr> 

C lelse] 

ClEq,X1/Tt,] 

Alink/ sequential  tit 
C 1  else] 
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Alink  $1$ 

[lend] 

[ !Eq , [ lename  X1XJ.C94004A  B] 

C ! Eq , C ! logon] , CONSOLE ]~ 

Wr  •***  %  REQUIRES  MANUAL  INTERVENTION. 

X/1awarn/2suarn  [lename  SIS] 

[ ielse] 

Wr 

Wr  -  [lename  XIX]. PR  REQUIRES  MANUAL  INTERVENTION. 

Wr  »•••  [lename  XIX]  NOT  EXECUTED  •••••#••**•••«•••*• 
Wr 
[ ! end] 

[ lelse] 

Wr  EXECUTION  STARTS  [ 1TIME] 

String  [Itime] 

[ ! Eq , [ ! f i  [lename  XIX]. pr],] 

Wr 

Wr  -  [lename  XIX]. PR  DOES  NOT  EXIST. 

Wr  •*«*  [lename  XIX]  FAILED  ••*•*•**•*•*••••*••**. 

Wr 

[ lelse] 

[!Eq,[ lename  X1X3.CE3406CJB] 

Proc/blo/ioc/cpu=1 /I swarn/2=warn  [lename  XI XJ 
[lelse] 

X/1zwarn/2swarn  [lename  XIX] 

[ 1  end] 

[ 1  end] 

Elapsed_time  [(explode  [Itime]]  [lexplode  [ (string]] 
[1UGT  [Tvar0],1] 

Wr  EXECUTION  TIME:  [1VAR0]  SECONDS 
[lelse] 

Wr  EXECUTION  TIME:  [IVARO]  SECOND 
[lend] 

[ 1  end] 

Runpr  ch[!var9].lg  XIX 
Del/2sign  [lename  X1X].<pr,st>  title 
[lend] 

[ 1  end] 

[lend] 

[ 1  end] 

[ lend] 


B.  19  COMPILE. CLI 
Push 

[ INeq.XI X, ] 

Del/2*ign  [lename  X1X]+.<lst,err,cpp,ob,sr ,str,tree> 
string  /base  lib*:ade:system.alib:library.lib 
[ lneq,XO/mX,T 
[ !Neq,X0/m*5,  ] 

String  /main_program*XO/maX[ 1 string] 
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[  J  else] 

String  /raain_program[ l string] 

[ lend] 

[ lend] 

AdaC ’.string i  X1-X 

Ren/2=ignore  [Sename  XlX].<lst  ,err> 
[!ne,[!file  [Sename  XIXLcppj,] 
Ren/2signore  [Iename  XH].<cpp,lst> 
[Seise] 

create  [ Sename  XIX]. 1st 
X  interwoven  % 1%  [Iename  XIX J.<err ,lst> 
[ Send] 

[Send] 

Pop 


B.  20  DASH. CLI 
Str/k 

[!Eq,X4X,  ] 

S tr ing~X 1 XX2  XX3  X-X5 1X6  XX7  XX8  XX9  XX 1 0XX 1 1 XX 1 2XX 1 3XX 1 4XX 1 5XX 1 6X 
[Send] 

[!Eq,X5X,  ] 

String""Xl  XX2XX3XX4X-X6XX7XX8XX9XX1 0XX1 1 XXI 2XX1 3XI14XX15XX16X 
[Send] 

[  !Eq,X6X,  ] 

String_X1  XX2XI3XX4XX5X-X7XX8XX9XX1 0XX1 1XX12XX1 3XX1 4XX1 5XX1 6X 
[ I  end] 

[!Eq,X7X,  ] 

String  X1XX2XX3XX4XX5XX6X-X8XX9XX10XXmX12IX13XX14XX15XXl6X 
[Send] 

[ !Eq,X8X,  ] 

String  XI XX2XX3XX4XX5XX6XX7X-X9XX1 0XX1 1 XX12XX1 3XX1 4XX1 5XX1 6X 
[Send] 

[!Eq,X9X,  ] 

String  XI XX2XX3XX4XX5XX6XX7XX3X-X1 0XX1 1 XXI 2XX1 3XX1 4XX1 5XX1 6X 
[Send] 

[ SEq.XlOX,  ] 

String  XI XX2XX3 XX4 XX5 XX6 XX7 XX8 XX9 X-X 1 1 XXI 2XX1 3XX1 4XX1 5XX1 6X 
[ ! end] 

[SEq.XIlX,  ] 

String  XI XX2 XX3 XX4 XX5 XX6 XX7 XX8 XX9 XX 1 0X-X 1 2XX1 3XX1 4XX1 5XX1 6X 

[Send] 

[ !Eq,Xl2X,  ] 

String  XI XX2 XX3 XX4 XX5 XX6 XX7 X X8 XX9 XX 1 0XX 1 1  X-X  1 3XX 1 4XX 1 5XX 1 6X 
[Send] 

[!Eq,X13X,J 

String  X 1 XX2 XX3 XX4 XX5 XX6 XX7 XX8 XX9 XX 1 0 XX 1 1 XX 1 2 X-X  1 4 XXI 5XX 1 6 X 
[lend] 

[ !Eq,X14X,  i 

String  X1XX2XX3XX4XX5XX6XX7XX8XX9XX10XX11XX12XX13X-X15XX16X 
[lend] 
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l!Eq,X15X,  3 

String  XI  XX2XX3XXUX5XX6XX7XX8XX9XX1 0XX1 1 XX12XX1 3X11 4X-X1 6X 
[lend] 

t !Eq,[ (string],] 

String  X 1 XX2 XX3  XX*» XX5 XX6 XX7 XX8 XX9 XX 1 0 XX 11 XX 1 2XX 1 3XX 1 4XX 1 5XX 1 6X 
[lend] 


B.21  DOPR.CLI 

del/2sign  ?[ !pid3.pr.tmp 
create  ?[ !pid].pr .tmp 

Proc/cpusl /input* @null/out puts ?[ Ipid3.pr .tmp/blo4 
/1swarn/2swarn/ls?[lpid3.pr .tmp  tlename  X1X3 
qpri/del  ?[ Ipid3.pr.tmp 


B.22  DO.CLI 

[ !Eq, [ !efi  [ !dir33,CHX1X3 
cleanup 

del/2sign  +.lat  chilX.lg 
UEq.X1X.93 

Clx  ([chXlX_ex.filea3)/T 
t! else 3 

Clx  ([chX1X_ex.files3) 

[ ! end3 
cleanup 
[!Neq.X2X.3 
qunhold  chX2X 
Uend3 
C !else3 

Wr  Wrong  directory: C Idir 3  to  start  tests 
C ! end3 


B.23  DUMP.CLI 

Dump/v/nacl  GMtbX1X:0  load_tape.cli 

Dump/v/nacl  &ntbX1X:1  +.cli  +.pr  +.st  pink*  new_tape 

new_tape 

Dump/v/nacl  SmtbX1X:2  ch-  ch-. files  util:+  +.cli 
Rew  #HtbX1X 


B.2»  ED.CLI 


pink/ zip/ tXO/X  XI -X 
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B.  J*  ELAPSED. CLI 

var2  Uuadd  Uuadd  Uumul  i1M2l  3600]  Uumul  X4XX5X  60]]  X7XX8X] 
varl  Uuadd  Uuadd  Uumul  X9XX10X  3600]  Uumul  %12%X1 3%  60]]  X15XX16X] 
UUgt,X9XX10  X.X1XX2X] 

Varl  Uusub  86400  Uvarl]] 

VarO  Uuadd  Uvarl]  Uvar2j] 

C 1  else] 

VarO  Uusub  Uvar2]  Uvarl]] 

[lend] 


B, 26  EXIT . CLI 
pop 

Wr  [ !dir] 


B.27  EXPAND. CLI 

string/k 
string  XIX 


B.28  FAST. CLI 

del/2algn  ♦.1st 
fcoap  [ehXIX. files] 
cleanup 
qunhold  chX2X 


B.29  FCOHP.CLI 
Push 

[INeq.SISJ 

Ada/no_code  gen/base_libs:ade:system.alib:library.lib  XI -9X 
Uneq,X10X,T 

Ada/no_code_gen/base_lib« : ade : system . al lb : 1 Ibrary .lib  X 1 0-1 9% 
[lend]” 

C !neq,X20X,] 

Ada/no_code_gen/base_libs:ade:system.alib:library.lib  X20-29X 
[lend]”  ”  ” 

[!neq,X30Xj 

Ada/no_code_gen/base_lib*:ade:system.alib:library.lib  X30-39X 
[lend]”  ”  ” 

[ lneq,X40X, ] 

Ada/no_code__gen/base_lib» :  ade :  system  .al ib :  library .  1  ib  X40-49X 
[lend]”  ” 

Uneq,X50X,  ] 

Ada/ no^code^gen/base^lib* : ade : system . al ib : 1 ibr ar y . 1 ib  X50-5 9X 
[lend]”  ” 


-  »■  -*  -* _ -A 
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L lneq,X60X, ] 

Ada/no_code_gen/base_libs:ade:system.alibr library. lib  X60-69X 
[ ! end] 

llneq,X70X,] 

Ada/ no_code_gen/base_lib*: ade rsystem. alibrlibrary. lib  X70-79X 
[lend] 

[ !neq,X80X,] 

Ada/ no_code_gen/base__lib*:ade: system. alib:library. lib  X80-89X 
[lend] 

[ !neq,X90X, ] 

Ada/ no_code_gen/base_libsr ade rsystem. alibrlibrary. lib  X90-99X 
[lend] 

[Ineq.XIOOXJ 

Ada/ no_code_gen/base_libs:ade: system. alib:library. lib  X100-109X 
[lend] 

[ Ineq.Xl 10X, ] 

Ada/no_oode_gen/^ase_libs:ade:system. alibrlibrary. lib  X1 10-1 19X 
[lend] 

[!neq.Xl20X.] 

Ada/no_code_gen/base_lib= :  ade :  system  .al b :  library  .lib  XI 20-1 29X 
[lend] 

[!neq,X130X.] 

Ada/no_code_gen/base_lib=: ade rsystem. alibrlibrary. lib  X130-139X 
[lend]-  -  - 

[Ineq.Xl 40X,] 

Ada/ no_code_gen/base_lib=r adersystem.alib r library. lib  XI 40-1 49X 
[ 1  end] 

[ Ineq.Xl 50X, ] 

Ada/no_code_gen/base_lib= r  ade  r system . al ib  r 1 ibrar y .lib  XI 50-1 59X 

[lend]- 

[!neq,Xl60X,] 

Ada/no_eode_gen/base_libs: ade rsystem. alibrlibrary. lib  X160-169X 
[lend] 

[!neq,X170X,] 

Ada/no_code_gen/base_lib»r ade rsystem. alibrlibrary. lib  X170-179X 
[lend] 

[!neq,X180X,] 

Ada/r»_code_gen/base_libx r ade r system . al ib r 1 ibrary .lib  XI 80-1 89X 
[ ! end] 

[!neq,X190X.] 

Ada/ nq_code_gen/base_lib*r ade rsystem. alibrlibrary. lib  X190-199X 

[lend]- 

[!neq,X200X,3 

Ada/no—code_gen/base__libsr ade rsystem. alibrlibrary. lib  X200-209X 

[lend]-  -  - 

[lneq,X210X,3 

Ada/ no_code_gen/base_lib*: ade rsystem. alibrlibrary. lib  X210-X 
[ lend] 

[lend] 

Pop 
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C leq.lQ/sl, ] 

Push 
VarO  0 
.  Varl  0 
String  .121 

del/2=ign  ?C !pid].tmp. files 
create  ?[!pid].tmp. files 
Sea  Chill  [I  sea] 

101/s  <[chlH_files]> 
del/2  sign  chill. 121. files 
Ren  ?[!pid].tmp. files  chll 1.121. files 
Wr  Total  number  of  121  files:  [IvarO] 

Pop 

[Seise] 

[lneq.Hl,] 

[!eq,[!eext  1113,[  Istring]] 

VarO  [luadd  [IvarO]  1] 

Wr/1*?[ !pid].tmp. files  111  [iasc  46] 
[lend] 

101/s  12-1 
[lend] 

[ 1  end] 


B.  31  FUST.  CLI 

str  SCRIPT. IDG 
WR  Script  file  is  [I str] 
del/2 signore  [I str] 
f/s/q/l»[ ! str]  11-1 
flist.1  [I  str] 


B.32  INTERWOVEN. CLI 

ren/2sign  [lename  11}].<lst,err> 
create  [lename  11 13. 1st 
X  interwoven  111  [lename  1113.<err ,lst> 


B.  33  JS.CU 
qd/ty*batlO/l 
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look  :udd: jimw:batch:chS1S 


B.35  LMGR.CLI 
x  :adejprograms:lmgr 


B.  36  LOAD. CLI 

load/v/d  gmtbXI S:  1 
new  tape 

load/v/d  €mtbS1S:2 
rew  SMtbXlS 


B. 37  MAKE . CLI 

[ lne.SIS, 3 
wr  Processing  SIS 
del/2=ignore  [lename  SI  %  3. 1st 
[Ine.Cifi  SIS], 3 
C !eq,[ ! f i  [lename  SlS3.err3,3 
cr  [lename  SIS 3. err 
[ lend] 

x  interwoven  SIS  [lename  SlS].<err,lst> 
[I  else] 

cr  [lename  SlS3.1st 
[ 1  end] 
l lend] 


B.  38  M  KB.  CLI 

[leq.SO/sSJ 

Push 

del/2«ign  chSIS.b. files 
Sea  ChSIS  [1  sea] 

SOS/s  <[chS1S.files]> 

Pop 

[ telse] 

[Ineq.SIS,] 

Break2  SIS 
VarO  [1 string] 

Break. CLI  SIS 
[!eq,[ !string],B] 

Break2  SIS 

Wr/l«ch[ lstring].b. files  SIS  [lasc  46] 
Wr/l«ch[ 1  string] .b . files 
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[tend] 

XOX/s  X2-X 
[lend] 

[lend] 


B. 39  MKLIST.CLI 

Push 
VarO  0 

del/2  sign  chXlX.list 
Create  chXlX.list 
Wr/lschXlX.list  Chapter  XIX 
wrist  XIX  (CchXIX. files]) 
Pop 


B.40  NEW.CLI 
PUSH 

SEA  C  !OXR ] • C  !SEA] 

DIR  XOX 
Une.XlX.] 

XI -X 
Clelse] 

WRITE  Current  directory  is  [IDIR] 
l lend] 


B.U1  QPRERR ,  CLI 

[ !eq, XO/sX, ] 

Push 

chXlX 

XOX/s  (CchXlX.err .files] ) 

Pop 

Clelse] 

[lUne.Clsize  C lename  XIX]. 1st] ,0] 
Qprl  [lename  XIX]. 1st 
[lend] 

C I  end] 


B. 42  READ. CLI 

ClEq.Clefi  C Idir]], NEW  TAPE] 

Wr 

Wr  This  program  reads  the  ACVC  tests  into  different  directories. 
Wr 

Wr  Make  sure  the  tape  drive  is  set  at  high  density. 

Wr  Don’t  forget  to  put  switches  into  the  CH-.FILES 
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Wr  Make  damn  sure  you  have  copies  of  the  CH-. FILES  because 

WR  it  will  be  deleted  later . . 

Wr  There  are  extra  copies  in  system  h  in  case  you  need  it 
Wr  Don't  forget  to  delete  and  recreate  the  directories  by  doing 
WR  the  following: 

Wr  DEL  CH<2,3.4,5,6,7,8,9,10,11,12,14> 

Wr  Create/dir  CH(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14) 

Wr 

x  %0-% 

Cl  else] 

Wr  Wrong  directory: [ !dir]  to  start  tests 
WR  You  must  be  in  directory:  NEW  TAPE 
[lend]  “ 


B. 43  RUNALL.CLI 

x/1  =warn/2=warn  (t!fi  «-pr]) 


B.44  RUNPR.CLI 


Push 

break. cli  12% 

[ !Neq,[! string], B] 

Dash  [{explode  %2%] 

Wr/l*%1%  *****  [! string] 

[ lNeq,[ Ifi  [ lename  %2%].pr],] 

[!Eq,[lename  %2%],C94004A  B] 

Wr/l*%1% 

Wr/l*%1%  — -  [lename  %2%].PR  REQUIRES  MANUAL  INTERVENTION. 

Wr/l*%1%  [lename  %2%]  FAILED  ••*e**********eeeeeee . 

[  I else] 

String/k 

ClEq.C lename  %2%],CE3406C_B] 

Proe/cpusl /in«6null/out*%1 %/blo/ string  [lename  %2%] 

[ 1  else] 

Proo/in*€null/out*%1%/blo/ string  [lename  %2%] 

[lend] 

[ lNeq,([ (string] ) ,( )] 

Wr/l»*1% 

Wr/l«%1%  -  [lename  %2%].PR  ENCOUNTERED  RUNTIME  ERROR. 

Wr/l*%1%  ,,,,•  [! string], 

Wr/l«%1%  •••*  [lename  %2%]  FAILED  «••#»#•#•••»••»*•«, 

[ I  end] 

[tend] 

Wr/l«%1% 

[ 1  else] 

Wr/l«%1% 
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[lend] 

[lend] 

Pop 


B.  45  RUN.Cil 

del/2=ign  chXlX.pr.log 
create  chX1X.pr.log 

Wr/l*chl1X.pr .log  Date:  [’.date]  and  Time:  [Itime] 

Wr/lschXI X.pr.log 
chXU 

Proc/input=@null/output=chXl X.pr .log/blo/1 =warn/2=warn/l»chX1 X.pr.log  & 

([lename  [chXlX.main. files]]) 

exit 

[ INeq.XO/qprX,] 

Qpri/del  chXlX.pr.log 
[lend] 


B. 46  SCRATCH. CLI 
PUSH 

SEA  [IDIR],[ ISEA] 

DIR  SOX 
[Ine.SIXJ 
H-t 
[lelae] 

WRITE  Current  directory  is  [IDIR] 
[lend] 


B.47  WRITE. CLI 

[lEq.tlefi  [! dir]], SCRATCH] 
flist 

x  SOX  [ Istr] 

[lelae] 

Wr  Wrong  directory: Cldir]  to  atart  teata 
WR  You  muat  be  in  directory:  SCRATCH 
[lend] 


B.48  XREF.CLI 


ch_xref 
ch Txref 
ch”xref 

chTxr«f 

ohjirtf 
ch” xref 


ch  xref  8 


dir  Ach3 
dir  Ach4 
dir  Ach5 
dir  Ach6 
dir  Ach7 
dir  Ach8 
dir  Ach9 
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ch_xref  9; dir  *chlO 
ch_jcref  10;dir  *ch11 
ch_xref  11;dir  *01112 
ch_xref  12; dir  *ch14 
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